home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / net / bind-contrib.tar.gz / bind-contrib.tar / contrib / misc / dnsrpt < prev    next >
Encoding:
Text File  |  1996-10-25  |  7.7 KB  |  303 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # Copyright (c) 1993, 1994 by Silicon Systems Inc.
  4. # 
  5. # Permission to use, copy, modify, and distribute this software for any
  6. # purpose with or without fee is hereby granted, provided that this
  7. # copyright notice appear in all copies, and that the name of Silicon
  8. # Systems Inc. not be used in advertising or publicity pertaining to
  9. # distribution of the document or software without specific,
  10. # written prior permission.
  11. # 
  12. # THE SOFTWARE IS PROVIDED "AS IS" AND SILICON SYSTEMS INC. DISCLAIMS ALL
  13. # WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
  14. # OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL SILICON SYTEMS
  15. # INC. BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  16. # DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  17. # PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  18. # ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  19. # SOFTWARE.
  20. #
  21. # Author: Don Lewis <gdonl@gv.ssi1.com>
  22. #
  23. # This perl script reads the /etc/named.boot file to find all the zone
  24. # files.  It reads the zone files and produces a report listing the
  25. # hosts sorted by both name and address in a format similar to that of
  26. # /etc/hosts (the difference being that this report contains multiple
  27. # address fields for multi-homed hosts).  This script checks that the
  28. # A RRs and PTR RRs match up, and also knows about CNAME RRs.
  29. #
  30. # This script is fairly dependent on having a complete set of the zone
  31. # files for a domain (both forward and reverse) accessable.
  32. #
  33. #  $Id: dnsrpt,v 8.2 1996/10/25 17:07:56 vixie Exp $
  34. #
  35.  
  36. sub getnonblank {
  37.     local ($line, $instring, $inparens, $saweof);
  38.     local ($handle) = @_;
  39.  
  40.     $instring = 0;
  41.     $inparens = 0;
  42.     $saweof = 0;
  43.  
  44.     do {
  45.     $line = '';
  46.     do {
  47.         $c = getc($handle);
  48.         if ($c eq ';') {
  49.         do {
  50.             $c = getc($handle);
  51.             if ($c eq '') {
  52.             last;
  53.             }
  54.         } while ($c ne "\n");
  55.         }
  56.         if ($c eq '') {
  57.         $saweof = 1;
  58.         last;
  59.         } elsif ($c eq ';') {
  60.         $line .= $c;
  61.         } else {
  62.         $line .= $c;
  63.         }
  64.         if ($instring) {
  65.         if ($c eq '"') {
  66.             $instring = 0;
  67.         }
  68.         } else {
  69.         if ($c eq '"') {
  70.             $instring = 1;
  71.         } elsif ($c eq '(') {
  72.             $inparens = 1;
  73.         } elsif ($c eq ')') {
  74.             $inparens = 0;
  75.         }
  76.         }
  77.     } while ( $inparens || $c ne "\n" );
  78.     } while ((! $saweof) && (split(/[ \t\n]/, $line) == 0));
  79.     return($line);
  80. }
  81.  
  82. sub parsezone {
  83.     local ($origin) = $_[0];
  84.     local ($zonefile) = $_[1];
  85.     local ($zonedata);
  86.     local ($owner, $lcowner);
  87.     local ($hostname, $lchostname);
  88.     
  89.     if ($origin ne '.') {
  90.     $origin .= '.';
  91.     }
  92.  
  93.     if ($directory ne '') {
  94.     $zonefile = $directory . '/' . $zonefile;
  95.     }
  96.  
  97.     if (! -f $zonefile) {
  98.     die "zone file '" . $zonefile . "' for zone '" . $origin .
  99.         "' is not a file\n";
  100.     }
  101.     if (open(zone, $zonefile) != 1) {
  102.     die "can't open zone file '" . $zonefile . "' for zone '" . $origin .
  103.         "'\n";
  104.     }
  105.  
  106.     while ($zonedata = &getnonblank(zone)) {
  107.     split(/[ \t\n]+/, $zonedata);
  108.     if ($_[0] eq '$ORIGIN') {
  109.         $origin = $_[1];
  110.     } else {
  111.         if ($_[0] ne '') {
  112.         if ($_[0] eq '@') {
  113.             $owner = $origin;
  114.         } elsif ($_[0] =~ /.*\.$/) {
  115.             $owner = $_[0];
  116.         } elsif ($origin eq '.') {
  117.             $owner = $_[0] . '.';
  118.         } else {
  119.             $owner = $_[0] . '.' . $origin;
  120.         }
  121.         }
  122.         ($lcowner = $owner) =~ y/A-Z/a-z/;
  123.         shift;      # skip owner
  124.         if ($_[0] =~ /^[0-9]+$/) {
  125.         shift;  # skip ttl
  126.         }
  127.         if ($_[0] ne 'IN') {
  128.         print "skipping non-IN class RR ", $zonedata;
  129.         next;
  130.         }
  131.         shift;      # skip class
  132.         if ($_[0] eq 'A') {
  133.         if ($addrtohost{$_[1]}) {
  134.             local (@tmpvar);
  135.             foreach $var (split(/ /, $addrtohost{$_[1]})) {
  136.             $tmpvar{$var} = 'junk';
  137.             }
  138.             if (! $tmpvar{$lcowner} ) {
  139.             $addrtohost{$_[1]} .= " " . $owner;
  140.             }
  141.         } else {
  142.             $addrtohost{$_[1]} = $owner;
  143.         }
  144.         if ($hosttoaddr{$lcowner}) {
  145.             local (@tmpvar);
  146.             foreach $var (split(/ /, $hosttoaddr{$lcowner})) {
  147.             $tmpvar{$var} = 'junk';
  148.             }
  149.             if (! $tmpvar{$_[1]} ) {
  150.             $hosttoaddr{$lcowner} .= " " . $_[1];
  151.             }
  152.         } else {
  153.             $hosttoaddr{$lcowner} = $_[1];
  154.         }
  155.         } elsif ($_[0] eq 'CNAME') {
  156.     
  157.         if ($_[1] =~ /.*\.$/) {
  158.             $hostname = $_[1];
  159.         } elsif ($origin eq '.') {
  160.             $hostname = $_[1] . '.';
  161.         } else {
  162.             $hostname = $_[1] . '.' . $origin;
  163.         }
  164.         ($lchostname = $hostname) =~ y/A-Z/a-z/;
  165.     
  166.         if ($hosttocname{$lchostname}) {
  167.             $hosttocname{$lchostname} .= " " . $owner;
  168.         } else {
  169.             $hosttocname{$lchostname} = $owner;
  170.         }
  171.         } elsif ($_[0] eq 'PTR') {
  172.         if ($ptrtohost{$lcowner}) {
  173.             $ptrtohost{$lcowner} .= " " . $_[1];
  174.         } else {
  175.             $ptrtohost{$lcowner} = $_[1];
  176.         }
  177.         }
  178.     }
  179.     }
  180.  
  181.     close(zone);
  182. }
  183.  
  184. sub cmpaddr {
  185.     local (@addr1) = split(/\./, $a);
  186.     local (@addr2) = split(/\./, $b);
  187.  
  188.     for ($i = 0; $i < 4; $i++) {
  189.     if ($addr1[$i] != $addr2[$i]) {
  190.         return($addr1[$i] - $addr2[$i]);
  191.     }
  192.     }
  193.     return(0);
  194. }
  195.  
  196. if (open(bootfile, "</etc/named.boot") != 1) {
  197.     die "can't open /etc/named.boot\n";
  198. }
  199.  
  200. while ($cmd = &getnonblank(bootfile)) {
  201.     split(/[ \t\n]+/, $cmd);
  202.     if ($_[0] eq 'directory') {
  203.     $directory = $_[1];
  204.     } elsif ($_[0] eq 'primary') {
  205.     &parsezone( $_[1], $_[2]);
  206.     } elsif ($_[0] eq 'secondary') {
  207.     &parsezone( $_[1], $_[$#_]);
  208.     }
  209. }
  210.  
  211. foreach $addr (keys(%addrtohost)) {
  212.     $ptr = $ptrtohost{ join('.', reverse(split(/\./, $addr))) .
  213.     '.in-addr.arpa.' };
  214.     ($lcptr = $ptr) =~ y/A-Z/a-z/;
  215.     $hostname = $addrtohost{$addr};
  216.     @hostname = split(/ /, $hostname);
  217.     ($lchostname = $hostname) =~ y/A-Z/a-z/;
  218.     @lchostname = split(/ /, $lchostname);
  219.     @unmatched = ();
  220.  
  221.     if (! $ptr ) {
  222.     print "address ", $addr,
  223.         " (", $hostname, ") has no matching PTR record\n";
  224.     } else {
  225.     foreach (@lchostname) {
  226.         if ( $lcptr ne $_ ) {
  227.         push( @unmatched, shift( @hostname ) );
  228.         }
  229.     }
  230.     if ( $#lchostname == $#unmatched ) {
  231.         print "address ", $addr, " has name ", $hostname, " and PTR ",
  232.         $ptr, "\n";
  233.     } elsif ( $#unmatched > 1 ) {
  234.         print "address ", $addr, " has extra names ",
  235.         join(' ', @unmatched), "\n";
  236.     } elsif ( $#unmatched > 0 ) {
  237.         print "address ", $addr, " has extra name ", $unmatched[0], "\n";
  238.     }
  239.     }
  240. }
  241.  
  242. foreach $ptr (keys(%ptrtohost)) {
  243.     $hostname = $ptrtohost{$ptr};
  244.     ($lchostname = $hostname) =~ y/A-Z/a-z/;
  245.     @parts = split(/\./, $ptr);
  246.  
  247.     if ($parts[$#parts] =~ /^arpa$/i && $parts[$#parts - 1] =~ /^in-addr$/i) {
  248.  
  249.     if ( ! $hosttoaddr{$lchostname} ) {
  250.         if ( $ptrtohost{$lchostname} ) {
  251.         if ( $ptrtohost{$lchostname} ne $ptr ) {
  252.             print "mismatched PTRs for ", $ptr, " and ", $hostname,
  253.             "\n";
  254.         }
  255.         } else {
  256.         print "PTR ", $ptr, " refers to unknown host ", $hostname, "\n";
  257.         }
  258.     } else {
  259.         $addr = $parts[3] . '.' . $parts[2] . '.' . $parts[1] .
  260.         '.' . $parts[0];
  261.  
  262.         if ( ! $addrtohost{$addr} ) {
  263.         print "PTR ", $ptr, " to ", $hostname,
  264.             " has an invalid address\n";
  265.         } elsif ( $hostname ne $addrtohost{$addr} ) {
  266. # duplicate warning
  267. #        print "PTR ", $ptr, " to ", $hostname, " has address of host ",
  268. #            $addrtohost{$addr}, "\n";
  269.         }
  270.     }
  271.     } elsif ( ! $ptrtohost{$lchostname} ) {
  272.     print "network PTR ", $ptr, " to ", $hostname, " is dangling\n";
  273.     }
  274. }
  275.  
  276. print "                        Hosts Sorted by Name\n\n\n";
  277.  
  278. foreach $host (sort(keys(%hosttoaddr))) {
  279.     $count = 0;
  280.     foreach $addr (split(/ /, $hosttoaddr{$host})) {
  281.     $count++;
  282.     printf("%-16s", $addr);
  283.     }
  284.     for (; $count < 2; $count++) {
  285.     printf("%-16s", "");
  286.     }
  287.     printf "  %s", $host;
  288.     if ($hosttocname{$host}) {
  289.     print ' ', $hosttocname{$host};
  290.     }
  291.     print "\n";
  292. }
  293.  
  294. print "\f                        Hosts Sorted by Address\n\n\n";
  295.  
  296. foreach $addr (sort(cmpaddr keys(%addrtohost))) {
  297.     printf "%-32s  %s", $addr, $addrtohost{$addr};
  298.     if ($hosttocname{$addrtohost{$addr}}) {
  299.     print ' ', $hosttocname{$addrtohost{$addr}};
  300.     }
  301.     print "\n";
  302. }
  303.